---
title: "Acala / Karura Daily Pool Stats"
output:
flexdashboard::flex_dashboard:
orientation: rows
vertical_layout: scroll
social: menu
source_code: embed
---
```{css custom1, echo=FALSE}
.dataTables_scrollBody {
max-height: 100% !important;
}
```
```{r global, include=FALSE}
library(knitr)
knitr::opts_chunk$set(
message = FALSE,
warning = FALSE,
comment = "#>"
)
library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(dygraphs)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()
# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)
# library(reticulate)
```
```{r tokens, cache = TRUE, include=FALSE}
# k_tdd <- getTokenDailyData_acala_dex("karura")
# k_tdd[, tvl := tvl / 1e3]
# k_tdd[, timestamp := as.Date(timestamp)]
#
# a_tdd <- getTokenDailyData_acala_dex("acala")
# a_tdd[, tvl := tvl / 1e3]
# a_tdd[, timestamp := as.Date(timestamp)]
maintxt <- "Total Value Locked for "
k_dp_dex <- getDailyPool_acala_dex("karura")
k_dp_dex[, tvlUSD := totalTVL / 1e3]
k_dp_dex[, date := as.Date(timestamp)]
# k_dp <- getPoolDayData_acala("karura")
# k_dp[, tvlUSD := tvlUSD / 1e3]
# k_dp[, token0Price := token0Close]
# k_dp[, date := as.Date(date)]
# k_both <- merge(k_dp,
# k_dp_dex,
# by = c("poolId","date"),
# all = TRUE,
# suffixes = c("","_DEX"))
k_pools <- sort(unique(k_dp_dex$poolId))
a_dp_dex <- getDailyPool_acala_dex("acala")
a_dp_dex[, tvlUSD := totalTVL / 1e3]
a_dp_dex[, date := as.Date(timestamp)]
a_dp_dex[, test := token1Amount / token0Amount]
a_dp_dex[, .(token0Id, token1Id, token0Price, token1Price, test)]
# a_dp <- getPoolDayData_acala("acala")
# a_dp[, tvlUSD := tvlUSD / 1e3]
# a_dp[, token0Price := token0Close]
# a_dp[, date := as.Date(date)]
# a_both <- merge(a_dp,
# a_dp_dex,
# by = c("poolId","date"),
# all = TRUE,
# suffixes = c("","_DEX"))
a_pools <- sort(unique(a_dp_dex$poolId))
# "token0Amount": "2461670866930004326",
# "token1Amount": "1872076768294621",
# "tvlUSD": "4923321763900343588776521",
# "token0Close": "773400515"
#
# (2461670866930004326 * 773400515) / 1e18
# 15263590546
#
# x "exchange0": "1478312353408",
# "exchange1": "676447029407"
# 1/.67
```
# Acala Pools {.tabset}
Row
----
```{r}
head(a_dp_dex)
pool <- a_pools[1]
dygraph(a_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(a_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(a_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
dygraph(a_dp_dex[poolId == pool, .(date, token0Price)],
main = "Token 0 Price") %>%
dySeries("token0Price", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- a_pools[2]
dygraph(a_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(a_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(a_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
dygraph(a_dp_dex[poolId == pool, .(date, token0Price)],
main = "Token 0 Price") %>%
dySeries("token0Price", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- a_pools[3]
dygraph(a_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(a_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(a_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
dygraph(a_dp_dex[poolId == pool, .(date, token0Price)],
main = "Token 0 Price") %>%
dySeries("token0Price", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- a_pools[4]
dygraph(a_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(a_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(a_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
dygraph(a_dp_dex[poolId == pool, .(date, token0Price)],
main = "Token 0 Price") %>%
dySeries("token0Price", stepPlot = TRUE, fill = TRUE)
```
# Karura Pools {.tabset}
Row
----
```{r}
pool <- k_pools[1]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- k_pools[2]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- k_pools[3]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- k_pools[4]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- k_pools[5]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- k_pools[6]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- k_pools[7]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- k_pools[8]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- k_pools[9]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- k_pools[10]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- k_pools[11]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- k_pools[12]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- k_pools[13]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- k_pools[14]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- k_pools[15]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- k_pools[16]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- k_pools[17]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```
Row
----
```{r}
pool <- k_pools[18]
dygraph(k_dp_dex[poolId == pool, .(date, tvlUSD)],
main = maintxt %+% pool,
ylab = "TVL in thousands ($)") %>%
dySeries("tvlUSD", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token0Amount)],
main = "Token 0 Amount") %>%
dySeries("token0Amount", stepPlot = TRUE, fill = TRUE)
dygraph(k_dp_dex[poolId == pool, .(date, token1Amount)],
main = "Token 1 Amount") %>%
dySeries("token1Amount", stepPlot = TRUE, fill = TRUE)
```